home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
tutor
/
dbase1iv.exe
/
DB4LESS3.ZIP
/
EMP.FMT
< prev
next >
Wrap
Text File
|
1988-11-18
|
2KB
|
82 lines
********************************************************************************
*-- Name....: EMP.FMT
*-- Date....: 11-18-88
*-- Version.: dBASE IV, Format 1.0
*-- Notes...: Format files use "" as delimiters!
********************************************************************************
*-- Format file initialization code --------------------------------------------
IF SET("TALK")="ON"
SET TALK OFF
lc_talk="ON"
ELSE
lc_talk="OFF"
ENDIF
*-- This form was created in COLOR mode
SET DISPLAY TO COLOR
lc_status=SET("STATUS")
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"
SET STATUS ON
ENDIF
*-- Window for memo field comments.
DEFINE WINDOW Wndow1 FROM 13,15 TO 21,76
*-- @ SAY GETS Processing. -----------------------------------------------------
*-- Format Page: 1
@ 1,26 SAY "EMPLOYEE"
@ 1,36 SAY "INFORMATION"
@ 1,49 SAY "FORM"
@ 2,3 TO 21,78
@ 4,6 SAY "ID Number"
@ 4,17 GET empid PICTURE "AA999"
@ 4,25 SAY "Dept"
@ 4,31 GET dept PICTURE "@A! XXXX"
@ 6,6 SAY "First Name"
@ 6,17 GET fname PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 6,40 SAY "Last"
@ 6,45 GET lname PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
@ 7,6 SAY "Address"
@ 7,17 GET address PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
@ 8,6 SAY "City"
@ 8,17 GET city PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
@ 8,45 SAY "State"
@ 8,51 GET state PICTURE "@! XX"
@ 8,56 SAY "Zip"
@ 8,60 GET zip PICTURE "99999 9999"
@ 9,6 SAY "Phone"
@ 9,17 GET phone PICTURE "(999) 999-9999" ;
MESSAGE "Enter Phone Number"
@ 11,6 SAY "Employment Date"
@ 11,22 GET empdate
@ 11,34 SAY "Active"
@ 11,41 GET active PICTURE "Y"
@ 11,44 SAY "Skills"
@ 11,52 GET skills PICTURE "@!M WP,PR,AN,WP/PR,WP/AN,PR/AN,WP/PR/AN" ;
MESSAGE "Pick from Skills List"
@ 13,6 SAY "Comments"
@ 13,15 GET comments OPEN WINDOW Wndow1 ;
MESSAGE "Enter Education Information"
*-- Format file exit code -----------------------------------------------------
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF" && Entered form with status off
SET STATUS OFF && Turn STATUS "OFF" on the way out
ENDIF
RELEASE WINDOWS Wndow1
IF lc_talk="ON"
SET TALK ON
ENDIF
RELEASE lc_talk,lc_fields,lc_status
*-- EOP: EMP.FMT